Declare Function BitBlt Lib "GDI" (ByVal hDestDC As Integer, ByVal X As Integer, ByVal Y As Integer, ByVal nWidth As Integer, ByVal nHeight As Integer, ByVal hSrcDC As Integer, ByVal XSrc As Integer, ByVal YSrc As Integer, ByVal dwRop As Long) As Integer
Declare Sub ShellAbout Lib "shell.dll" (ByVal hWndOwner As Integer, ByVal lpszAppName As String, ByVal lpszMoreInfo As String, ByVal hIcon As Integer)
Declare Function SendMessage Lib "User" (ByVal hWnd As Integer, ByVal wMsg As Integer, ByVal wParam As Integer, lparam As Any) As Long
Const WM_USER = &H400
Const LB_SETTABSTOPS = WM_USER + 19
Dim ICEaction As String
Sub cmdAbout_Click ()
Dim sMore$
sMore$ = "This is a Visual Basic example program "
sMore$ = sMore$ & "to demonstrate the ICE Compression Library"
If (cckMove.Value = 1) Then lFlags = lFlags + ICE_MOVEFILES
If (cckOverwrite.Value = 1) Then lFlags = lFlags + ICE_OVERWRITEALL
For i = 0 To file1.ListCount - 1
If file1.Selected(i) Then
afile$ = file1.Path
If (Right$(afile$, 1) <> "\") Then afile$ = afile$ & "\"
afile$ = afile$ & file1.List(i)
rv = Freeze(afile$, txtArchive.Text, lFlags)
If (rv < 0) Then
msg$ = "Error " & Format$(rv) & " occured. "
msg$ = msg$ & "Please refer to the ICE help file."
MsgBox msg$, 15, "Error returned from ICE"
End If
iAdded = True
End If
Next i
If iAdded Then ShowContents
lblStatus.Caption = "Idle"
picStatus.Cls
DoEvents
End Sub
Sub cmdBrowse_Click ()
Const OFN_CREATEPROMPT = &H2000& 'Specifies that the dialog box should ask if the user wants to create a file that does not currently exist. This flag automatically sets the OFN_PATHMUSTEXIST and OFN_FILEMUSTEXIST flags.
Const OFN_HIDEREADONLY = &H4& 'Hides the Read Only check box.
Const OFN_NOCHANGEDIR = &H8& 'Forces the dialog box to set the current directory to what it was when the dialog box was invoked.
Const OFN_PATHMUSTEXIST = &H800& 'Specifies that the user can enter only valid path names. If this flag is set and the user enters an invalid path name, a warning message is displayed.